-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 3035
-- card count: 1
-- first card id: 3209
-- list block id: 2277
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 14944 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
--©Copyright 1990, Tom Deasey.
on idle
  if the hilite of cd btn "Stop Clocks" is true then
    StopAll
  else PutTime
end idle

on PutTime
  get the long time
  convert it to dateItems
  put it into Data
  get TimeOfYear(Data)
  if it = "Spring" then
    lock screen
    put Data into cd fld "Arizona"
    convert cd fld "Arizona" to long time
    put cd fld "Arizona" into cd fld "Pacific"
    add 1 to item 4 of Data
    put Data into cd fld "Mountain"
    convert cd fld "Mountain" to long time
    add 1 to item 4 of Data
    put Data into cd fld "Central"
    convert cd fld "Central" to long time
    add 1 to item 4 of Data
    put Data into cd fld "Eastern"
    convert cd fld "Eastern" to long time
    unlock screen
  else
    lock screen
    put Data into cd fld "Arizona"
    convert cd fld "Arizona" to long time
    put cd fld "Arizona" into cd fld "Mountain"
    subtract 1 from item 4 of Data
    if item 4 of Data = -1 then
      put 23 into item 4 of Data
    end if
    put Data into cd fld "Pacific"
    convert cd fld "Pacific" to long time
    add 2 to item 4 of Data
    put Data into cd fld "Central"
    convert cd fld "Central" to long time
    add 1 to item 4 of Data
    put Data into cd fld "Eastern"
    convert cd fld "Eastern" to long time
    unlock screen
  end if
end PutTime

on StopAll
  put "Stopped" into cd fld "Pacific"
  put "Stopped" into cd fld "Mountain"
  put "Stopped" into cd fld "Arizona"
  put "Stopped" into cd fld "Central"
  put "Stopped" into cd fld "Eastern"
end StopAll

function TimeOfYear Data
put item 1 of Data into Year
put item 2 of Data into Month
put item 3 of Data into Day
if Month >= 4 or Month < 10 then
  if Month = 4 then
    repeat with x = 1 to 12
      get line x of cd fld "Spring"
      if item 1 of it = Year then
        put item 2 of it into TheSeconds
        exit repeat
      end if
    end repeat
    convert Data to Seconds
    if Data < TheSeconds then
      return "Fall"
      exit TimeOfYear
    end if
  end if
  return "Spring"
else
  if Month = 10 then
    repeat with x = 1 to 12
      get line x of cd fld "Fall"
      if item 1 of it = Year then
        put item 2 of it into TheSeconds
        exit repeat
      end if
    end repeat
    convert Data to Seconds
    if Data < TheSeconds then
      return "Spring"
      exit TimeOfYear
    end if
  end if
  return "Fall
end if
end TimeOfYear

on CloseStack
  lock screen
  hide cd fld "Title"
  hide cd fld "Back"
  hide cd fld "Info"
  hide cd btn "More..."
  hide cd btn "No More..."
  unlock screen with dissolve
end CloseStack